Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Row > 7 And Selection.Row < 174 Then
    Range("a8:a174").EntireRow.ClearFormats
    'Selection.EntireRow.Select
            With Selection.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 65535
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
    'Selection.Select
End If
End Sub